home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / TEXT TO APPLEWRITER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  45 lines
  1. 100  HIMEM: 4096: TEXT : HOME 
  2. 110  LET D$ =  CHR$(4)
  3. 120  FOR I = 1 TO 39: PRINT "*";: NEXT 
  4. 130  VTAB 4: HTAB 10: PRINT "TEXT TO APPLEWRITER"
  5. 140  HTAB 10: PRINT "---- -- -----------"
  6. 150  GOSUB 1000
  7. 160  VTAB 10: INPUT "  TEXT FILE TO TRANSFER:";N$: IF  LEN(N$) = 0  THEN  VTAB 22: END 
  8. 190  VTAB 12: CALL  -958: INPUT "  FROM WHICH DRIVE:";IN$:IN =  VAL(IN$): IF IN >2  THEN 190
  9. 195  PRINT D$"VERIFY",N$: GOTO 200
  10. 196  PRINT "  FILE NOT FOUND !"
  11. 200  IF (IN)  THEN  PRINT D$"OPEN"N$",D"IN: GOTO 220
  12. 210  PRINT D$"OPEN"N$
  13. 220  ONERR  GOTO 320
  14. 240  PRINT D$"READ"N$
  15. 260  CALL 768
  16. 320  PRINT D$"CLOSE"N$
  17. 330  POKE 216,0
  18. 335  POKE 6400,131
  19. 340  LET E =  PEEK(30) + PEEK(31) *256
  20. 345  POKE E,96
  21. 350  LET A$ = "" +N$ +"TRANSFERED"
  22. 360  VTAB 18: HTAB 20 - INT( LEN(A$)/2): INVERSE : PRINT A$: NORMAL 
  23. 370  PRINT 
  24. 380  INPUT "  SAVE TO WHAT DRIVE:";IN$
  25. 390 IN =  VAL(IN$): IF IN >2  THEN 390
  26. 400  PRINT D$"BSAVE TEXT."N$;",A$1900,L"E -6400 +1;",D"IN
  27. 420  VTAB 18: CALL  -958
  28. 430  PRINT " T)RANSFER ANOTHER, E)EDIT, Q)UIT"
  29. 440  PRINT 
  30. 445  PRINT "WHICH ?";
  31. 450  GET A$
  32. 460  IF A$ = "T"  THEN  RUN 
  33. 470  IF A$ = "E"  THEN  PRINT : PRINT D$"BRUNTEDITOR,D1"
  34. 480  IF A$ < >"Q"  THEN   AND  ASC(A$) < >13  THEN 450
  35. 485  PRINT 
  36. 490  END 
  37. 1000  FOR I = 768 TO 808
  38. 1010  READ J: POKE I,J: NEXT : RETURN 
  39. 1020  DATA 169,1,133,30,169,25
  40. 1030  DATA 133,31,32,12,253,160
  41. 1040  DATA 0,9,128,201,141,240,12
  42. 1050  DATA 201,160,144,241,201
  43. 1060  DATA 224,144,2,233,97,105
  44. 1070  DATA 64,145,30,230,30,208
  45. 1080  DATA 227,230,31,208,223